home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 05 (1983-01)(Softdisk)(Side A).zip / Softdisk Magazette Volume 2, No. 05 (1983-01)(Softdisk)(Side A).do / HMA.bas < prev    next >
BASIC Source File  |  1996-12-24  |  14KB  |  242 lines
  1. 98  FOR K = 1 TO 20: PRINT : NEXT 
  2. 99 N = 29:V = 21:U = 1:RM = 1:F = 0:TM = 60::RB = 0
  3. 100  DIM NO$(N),VE$(V),OB$(5),OB(5),ME$(4),GQ(20,6),GQ$(20)
  4. 110  PRINT  CHR$(4);"OPEN HIRESDATAFILE"
  5. 120  PRINT  CHR$(4);"READ HIRESDATAFILE"
  6. 130  FOR K = 1 TO N: INPUT NO$(K): NEXT 
  7. 140  FOR K = 1 TO V: INPUT VE$(K): NEXT 
  8. 150  FOR K = 1 TO 5: INPUT OB$(K),OB(K): NEXT 
  9. 160  FOR K = 1 TO 20: FOR K1 = 1 TO 6: INPUT GQ(K,K1): NEXT K1: INPUT GQ$(K): NEXT K
  10. 170  FOR K = 1 TO 4: INPUT ME$(K): NEXT 
  11. 180  PRINT  CHR$(4);"CLOSE HIRESDATAFILE"
  12. 299  HGR : GOSUB 5000: GOSUB 5005
  13. 300 TM = TM -.5: IF TM <0  THEN 9000
  14. 301  IF RB >3  THEN  GOSUB 5005
  15. 305 RB = RB +1:A$ = "": PRINT "-----ENTER COMMAND:";
  16. 310  GET B$: IF B$ =  CHR$(21)  THEN B$ =  CHR$(32)
  17. 320  IF B$ < > CHR$(8)  AND B$ < > CHR$(32)  AND B$ < > CHR$(13)  AND ( ASC(B$) >90  OR  ASC(B$) <65)  THEN 310
  18. 330  IF B$ =  CHR$(13)  AND A$ = ""  THEN U = U * -1: GOTO 400
  19. 340  IF B$ =  CHR$(13)  THEN 450
  20. 345  IF  LEN(A$) >18  AND B$ < > CHR$(8)  THEN  PRINT  CHR$(7);: GOTO 310
  21. 350  IF B$ < > CHR$(8)  THEN A$ = A$ +B$: PRINT B$;: GOTO 310
  22. 360  IF  LEN(A$) = 0  THEN 310
  23. 370  PRINT B$" "B$;: IF  LEN(A$) = 1  THEN A$ = "": GOTO 310
  24. 380 A$ =  LEFT$(A$, LEN(A$) -1): GOTO 310
  25. 400  IF U = 1  THEN  POKE  -16304,0: GOTO 310
  26. 410  POKE  -16303,0: GOTO 310
  27. 450  IF  MID$ (A$,1,1) = " "  AND  LEN(A$) >1  THEN A$ =  RIGHT$(A$, LEN(A$) -1): GOTO 450
  28. 455  IF A$ = " "  THEN  HTAB 1:RB = RB -1: GOTO 305
  29. 460  IF  MID$ (A$, LEN(A$),1) = " "  THEN A$ =  LEFT$(A$, LEN(A$) -1): GOTO 460
  30. 470  PRINT : IF  LEN(A$) >1  THEN 550
  31. 480  IF A$ = "I"  THEN 7500
  32. 490  IF A$ = "N"  THEN KN = 24: GOTO 1100
  33. 500  IF A$ = "S"  THEN KN = 25: GOTO 1100
  34. 505  IF A$ = "E"  THEN KN = 26: GOTO 1100
  35. 510  IF A$ = "W"  THEN KN = 27: GOTO 1100
  36. 520  IF A$ = "U"  THEN KN = 28: GOTO 1100
  37. 530  IF A$ = "D"  THEN KN = 29: GOTO 1100
  38. 540  PRINT "I DON'T UNDERSTAND YOUR COMMAND.":TM = TM +.5: GOTO 300
  39. 550  IF  LEFT$(A$,3) = "INV"  THEN 7500
  40. 554  IF  LEFT$(A$,1) =  CHR$(70)  AND  MID$ (A$,2,2) = "UC"  AND  MID$ (A$,4,1) =  CHR$(75)  THEN 9000
  41. 555  FOR K =  LEN(A$) TO 1  STEP  -1
  42. 560  IF  MID$ (A$,K,1) = " "  THEN 580
  43. 570  NEXT : GOTO 540
  44. 580 IN$ =  RIGHT$(A$, LEN(A$) -K):N$ = IN$: FOR K = 1 TO  LEN(A$): IF  MID$ (A$,K,1) = " "  THEN 585
  45. 581  NEXT K
  46. 585 IV$ =  LEFT$(A$,K -1):V$ = IV$
  47. 587  IF (V$ = "JUMP"  OR V$ = "LEAP"  OR V$ = "DIVE")  AND (RM = 17  OR RM = 19)  THEN 3200
  48. 590  IF V$ = "MOVE"  OR V$ = "WALK"  THEN KV = 1: GOTO 1000
  49. 595  IF V$ = "UNLOCK"  THEN V$ = "OPEN"
  50. 600  IF V$ = "KILL"  OR V$ = "ATTACK"  OR V$ = "FIGHT"  THEN V$ = "HIT"
  51. 603  IF V$ = "RELEASE"  THEN V$ = "GIVE"
  52. 605  IF V$ = "TOSS"  THEN V$ = "THROW"
  53. 610  IF V$ = "TAKE"  THEN V$ = "GET"
  54. 615  IF V$ = "LEAVE"  THEN V$ = "EXIT"
  55. 620  IF V$ = "SLIDE"  THEN V$ = "CRAWL"
  56. 625  IF V$ = "KICK"  OR V$ = "SMASH"  THEN V$ = "BREAK"
  57. 630  IF V$ = "SWALLOW"  THEN V$ = "DRINK"
  58. 635  IF V$ = "TALK"  THEN V$ = "SPEAK"
  59. 640  IF V$ = "LOOK"  THEN V$ = "READ"
  60. 650  FOR KV = 1 TO V
  61. 660  IF V$ = VE$(KV)  THEN 680
  62. 670  NEXT KV:BL$ = "I DON'T KNOW HOW TO " +IV$ +" SOMETHING": GOTO 800
  63. 680  IF N$ = "GARFIELD"  THEN N$ = "CAT"
  64. 681  IF N$ = "CORD"  THEN N$ = "PLUG"
  65. 682  IF N$ = "ROPE"  THEN N$ = "STRING"
  66. 683  IF N$ = "FLOWER"  OR N$ = "POT"  OR N$ = "EGGS"  THEN KN = 22: GOTO 900
  67. 684  IF N$ = "WINDOW"  THEN KN = 20: GOTO 900
  68. 685  IF N$ = "RAT"  THEN N$ = "MOUSE"
  69. 687  IF N$ = "WATER"  OR N$ = "LIQUID"  THEN N$ = "ANTIDOTE"
  70. 689  FOR KN = 1 TO N
  71. 690  IF NO$(KN) = N$  THEN 900
  72. 700  NEXT :BL$ = "I DON'T KNOW HOW TO " +IV$:AA$ = "A":X$ =  LEFT$(N$,1): IF X$ = "A"  OR X$ = "E"  OR X$ = "I"  OR X$ = "O"  OR X$ = "U"  THEN AA$ = "AN"
  73. 710 BL$ = BL$ +" " +AA$ +" " +IN$: GOTO 800
  74. 800  IF  LEN(BL$) <39  THEN 850
  75. 810  FOR K2 = 39 TO 1  STEP  -1: IF  MID$ (BL$,K2,1) = " "  THEN 830
  76. 820  NEXT 
  77. 830  PRINT  LEFT$(BL$,K2):BL$ =  RIGHT$(BL$, LEN(BL$) -K2)
  78. 850  PRINT BL$:TM = TM +.5: GOTO 300
  79. 900  IF KN = 22  THEN BL$ = "I CAN'T " +IV$ +" THE " +IN$ +".  IT'S JUST A PROP.": GOTO 800
  80. 901  IF IN$ = "CLOCK"  AND RM = 4  AND KV = 21  THEN 3101
  81. 905  IF KN = 20  OR KN = 21  THEN BL$ = "THE " +IN$ +" IS TOO FAR FOR ME TO DO ANYTHING WITH.": GOTO 800
  82. 910  IF KN = 18  OR KN = 23  THEN BL$ = "THE " +IN$ +" IS NOT FOR YOU TO " +IV$ +".": GOTO 800
  83. 920  IF KN = 19  THEN BL$ = "I CAN'T " +IV$ +" THE MAT.  IT'S STUCK TO THE TABLE.": GOTO 800
  84. 1000  ON KV GOTO 1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100
  85. 1100  IF KN = 3  OR KN = 4  OR KN = 5  THEN 1400
  86. 1101  IF KN <24  THEN  IF KN <8  OR KN >12  THEN 540
  87. 1105  IF KN = 10  AND RM = 8  THEN KN = 27
  88. 1108  IF (KN = 11  OR KN = 12)  AND RM = 14  THEN KN = 12: GOTO 2600
  89. 1110  IF (KN = 11  OR KN = 12)  AND RM = 11  THEN KN = 12: GOTO 2600
  90. 1115  IF KN = 8  OR KN = 9  THEN 1200
  91. 1120  IF KN <24  THEN 540
  92. 1125 X = KN -23: IF GQ(RM,X) = 0  THEN  PRINT "I CAN'T GO IN THAT DIRECTION.":TM = TM +.5: GOTO 300
  93. 1130 RM = GQ(RM,X): GOSUB 5000: GOSUB 5005: GOTO 300
  94. 1200  IF KN = 10  THEN 1100
  95. 1210  IF KN = 9  AND RM = 19  THEN KN = 29: GOTO 1100
  96. 1220  IF KN = 9  AND RM = 17  THEN  PRINT "YOU TRY TO ENTER THE FLASK, BUT YOU CAN NOT REACH THE TOP.": GOTO 300
  97. 1225  IF KN = 9  THEN  PRINT ME$(1): GOTO 300
  98. 1230  IF KN = 8  AND RM = 12  THEN RM = 13: GOSUB 5000: GOSUB 5005: GOTO 300
  99. 1235  IF KN = 8  THEN  PRINT ME$(1): GOTO 300
  100. 1240  GOTO 540
  101. 1300  IF KN = 8  AND RM = 12  THEN  PRINT "THE TACKLE BOX IS ALREADY OPEN.": GOTO 300
  102. 1305  IF KN = 8  THEN  PRINT ME$(1): GOTO 300
  103. 1310  IF KN < >11  OR RM < >11  THEN 540
  104. 1320  PRINT "THAT'S IMPOSSIBLE.  THE DOOR IS SHUT ANDYOU CANNOT REACH THE DOOR KNOB.": GOTO 300
  105. 1400  IF KN = 4  AND OB(4) = 17  AND RM = 17  THEN RM = 19: GOSUB 5000: GOSUB 5005: GOTO 300
  106. 1403  IF KN = 9  THEN 1200
  107. 1404  IF KN = 8  AND RM = 12  THEN 1200
  108. 1405  IF KN = 4  AND OB(4) < >RM  THEN  PRINT ME$(1): GOTO 300
  109. 1406  IF F < >3  THEN 540
  110. 1410  IF (KN = 3  OR KN = 5  OR KN = 28)  AND RM = 1  THEN RM = 15: GOSUB 5000: GOSUB 5005: GOTO 300
  111. 1420  IF (KN = 3  OR KN = 5  OR KN = 29)  AND RM = 15  THEN RM = 1: GOSUB 5000: GOSUB 5005: GOTO 300
  112. 1425  IF (KN = 3  OR KN = 5)  THEN  PRINT ME$(1): GOTO 300
  113. 1430  GOTO 540
  114. 1500  IF KN = 6  AND RM = 14  THEN  PRINT "YOU ATTACK THE CAT BUT ONLY MANAGE TO   MAKE HIM MAD.  HE PUNCHES YOU BACK      INSIDE THE HOUSE.":RM = 11: GOSUB 5000: GOTO 300
  115. 1510  IF KN = 7  THEN  IF (RM = 10  AND F = 0)  OR (F = 1)  THEN  PRINT "I WOULDN'T HIT HIM IF I WERE YOU.  HE   HAS UNDERWORLD CONNECTIONS.": GOTO 300
  116. 1515  IF KN = 6  OR KN = 7  THEN  PRINT ME$(1): GOTO 300
  117. 1520  GOTO 540
  118. 1600  IF KN >5  THEN 540
  119. 1610  IF OB(KN) < > -1  THEN  PRINT ME$(2): GOTO 300
  120. 1620  IF OB(5) =  -1  AND KN = 5  AND RM = 1  THEN OB(5) = 0:GQ$(1) = "M" +GQ$(1): GOSUB 5000: PRINT "YOU THROW THE GRAPPLE IN THE AIR AND IT CATCHES ONTO THE EDGE OF THE TABLE.":F = 3: GOTO 300
  121. 1630  IF KN = 5  THEN  PRINT "YOU THROW THE GRAPPLE IN THE AIR BUT IT DOESN'T CATCH ON TO ANYTHING.": GOTO 300
  122. 1640  IF KN = 1  THEN  PRINT "YOU THROW THE HOOK AND IT HARMLESSLY    LANDS ON THE GROUND.":OB(1) = RM: GOSUB 5001: GOTO 300
  123. 1650 OB(KN) = RM: GOSUB 5001: GOSUB 5005: GOTO 300
  124. 1700  IF KN = 14  OR KN = 15  THEN 2200
  125. 1701  IF KN = 17  AND RM = 20  THEN 2900
  126. 1705  IF KN >5  THEN  PRINT "I CAN'T GET THAT.": GOTO 300
  127. 1710  IF OB(KN) =  -1  THEN  PRINT "YOU'RE ALREADY CARRYING IT.": GOTO 300
  128. 1715  IF (KN = 1  OR KN = 5)  AND RM = 15  THEN  PRINT "I CAN'T, IT'S STUCK TO THE TABLE.": GOTO 300
  129. 1720  IF OB(KN) < >RM  THEN  PRINT ME$(1): GOTO 300
  130. 1725  IF KN = 3  AND F < >2  THEN  PRINT "THE CAT WON'T LET ME GET THE STRING; NOTWHILE HE'S STILL PLAYING WITH IT.": GOTO 300
  131. 1730 OB(KN) =  -1: GOSUB 5000: GOTO 300
  132. 1800  IF KN >5  THEN 540
  133. 1810  IF OB(KN) < > -1  THEN  PRINT ME$(2): GOTO 300
  134. 1815  IF KN = 2  AND RM = 10  THEN 2000
  135. 1820 OB(KN) = RM: GOSUB 5001: GOSUB 5005: GOTO 300
  136. 1900  IF KN < >2  THEN 540
  137. 1910  IF OB(KN) < > -1  THEN  PRINT ME$(2): GOTO 300
  138. 1920  PRINT ME$(4): GOTO 300
  139. 2000  IF KN < >2  AND KN < >7  THEN 540
  140. 2005  IF KN = 2  AND OB(2) < > -1  THEN  PRINT ME$(2): GOTO 300
  141. 2010  IF KN = 2  AND RM = 10  AND F = 0  THEN  PRINT "THE MOUSE GLADLY EATS THE CHEESE AND    BEGINS FOLLOWING YOU.":OB(2) = 0:F = 1:GQ$(10) = "M" +GQ$(10): GOTO 300
  142. 2020  IF KN = 2  THEN 540
  143. 2030  IF RM = 14  AND F = 1  AND KN = 7  THEN  PRINT "THE CAT GLADLY TAKES THE MOUSE AND HE   BEGINS PLAYING WITH IT.":F = 2: GOTO 300
  144. 2040  GOTO 540
  145. 2100  IF KN = 2  AND OB(2) =  -1  THEN  PRINT ME$(4): GOTO 300
  146. 2105  IF KN < >6  AND KN < >7  THEN 540
  147. 2110  IF KN = 6  AND RM = 14  THEN  PRINT ME$(4): GOTO 300
  148. 2120  IF KN = 7  AND RM = 10  AND F = 0  THEN  PRINT ME$(4): GOTO 300
  149. 2130  IF KN = 7  AND F = 1  THEN  PRINT ME$(4): GOTO 300
  150. 2150  PRINT ME$(1): GOTO 300
  151. 2200  IF KN = 4  THEN KN = 13: GOTO 2300
  152. 2210  IF (KN = 14  OR KN = 15)  AND RM = 13  THEN  PRINT "THERE'S NO LINE ON THE SPOOL.": GOTO 300
  153. 2220  GOTO 540
  154. 2300  IF OB(4) < > -1  THEN  PRINT ME$(2): GOTO 300
  155. 2310  IF KN = 13  THEN  PRINT "NOW YOU LOOK NICE AND NEAT, BUT YOU'RE  STILL ONLY SIX INCHES TALL.": GOTO 300
  156. 2320  IF (KN = 6  AND RM = 14)  OR (KN = 7  AND RM = 10  AND F = 0)  THEN  PRINT ME$(3): GOTO 300
  157. 2325  IF KN = 7  AND F = 1  THEN  PRINT ME$(3): GOTO 300
  158. 2330  GOTO 540
  159. 2400  IF KN < >8  AND KN < >10  AND KN < >9  THEN 540
  160. 2410  IF KN = 8  AND RM = 13  THEN RM = 12: GOSUB 5000: GOSUB 5005: GOTO 300
  161. 2420  IF KN = 10  AND RM = 10  THEN KN = 26: GOTO 1100
  162. 2430  IF KN = 9  AND RM = 20  THEN  PRINT "THERE'S NO WAY TO GET OUT OF THE FLASK.": GOTO 300
  163. 2440  GOTO 540
  164. 2500  IF KN = 16  AND RM = 2  THEN 2590
  165. 2505  IF KN = 8  AND RM = 12  THEN 2590
  166. 2510  IF KN = 9  AND RM = 17  THEN 2590
  167. 2520  IF KN = 6  AND RM = 14  THEN 2590
  168. 2525  IF KN = 16  OR KN = 8  OR KN = 9  OR KN = 6  THEN  PRINT ME$(1): GOTO 300
  169. 2530  GOTO 540
  170. 2590  PRINT "YOU CAN'T LIFT THAT.  IT'S TOO HEAVY.": GOTO 300
  171. 2600  IF KN < >24  AND KN < >25  AND KN < >11  AND KN < >12  THEN 540
  172. 2610  IF RM < >11  AND RM < >14  THEN 540
  173. 2620  IF RM = 11  AND KN < >25  THEN  PRINT "YOU GET DOWN ON YOUR HANDS AND KNEES ANDCRAWL UNDERNEATH THE DOOR.":RM = 14: GOSUB 5000: GOSUB 8000: GOSUB 5005: GOTO 300
  174. 2630  IF RM = 14  AND KN < >24  THEN RM = 11: GOSUB 5000: GOSUB 5005: GOTO 300
  175. 2640  GOTO 540
  176. 2700  IF KN = 9  AND RM = 17  THEN 2790
  177. 2710  IF KN = 11  AND RM = 11  THEN 2790
  178. 2720  IF KN = 16  AND RM = 2  THEN 2790
  179. 2725  IF KN = 9  OR KN = 11  OR KN = 16  THEN  PRINT ME$(1): GOTO 300
  180. 2730  GOTO 540
  181. 2790  PRINT "HOW DO YOU EXPECT TO BREAK THAT WHEN    YOU'RE ONLY SIX INCHES TALL?!?": GOTO 300
  182. 2800  IF KN < >3  AND KN < >1  THEN 540
  183. 2805  IF OB(KN) < > -1  THEN  PRINT ME$(2): GOTO 300
  184. 2810  IF OB(3) < > -1  OR OB(1) < > -1  THEN  PRINT "I CAN'T DO THAT YET.": GOTO 300
  185. 2820  PRINT "YOU TIE THE STRING TO THE HOOK AND MAKE A STURDY GRAPPLE!":OB(1) = 0:OB(3) = 0:OB(5) =  -1: GOTO 300
  186. 2900  IF KN < >17  THEN 540
  187. 2910  IF RM < >20  THEN  PRINT ME$(1): GOTO 300
  188. 2920  GOTO 10000
  189. 3000  IF KN < >6  AND KN < >7  THEN 540
  190. 3010  IF KN = 6  AND RM = 14  THEN  PRINT "THE CAT SAYS 'I HATE MONDAYS!'": GOTO 300
  191. 3015  IF KN = 6  THEN  PRINT ME$(1): GOTO 300
  192. 3020  IF KN = 7  AND RM = 10  AND F = 0  THEN 3040
  193. 3030  IF F < >1  THEN  PRINT ME$(1): GOTO 300
  194. 3040  PRINT "THE MOUSE SAYS 'SQUEAK'.": GOTO 300
  195. 3100  IF KN < >4  AND KN < >8  AND KN < >9  AND KN < >16  THEN 540
  196. 3101  IF IN$ = "CLOCK"  THEN  PRINT "YOU HAVE ";TM;" MINUTES LEFT.": GOTO 300
  197. 3110  IF KN = 4  AND OB(4) < > -1  THEN  PRINT ME$(2): GOTO 300
  198. 3115  IF KN = 4  THEN  PRINT "IT SAYS 'ACE'.": GOTO 300
  199. 3120  IF KN = 8  AND RM = 12  THEN  PRINT "IT SAYS 'GARCIA'.": GOTO 300
  200. 3130  IF KN = 9  AND RM = 17  THEN  PRINT "IT SAYS 'PYREX'.": GOTO 300
  201. 3140  IF KN = 16  AND RM = 2  THEN  PRINT "IT'S TITLED 'SHORT PEOPLE'.": GOTO 300
  202. 3150  PRINT ME$(1): GOTO 300
  203. 3200  IF RM = 19  THEN KN = 29: GOTO 1100
  204. 3210  PRINT "YOU JUMP HIGH IN THE AIR, BUT YOU STILL CANNOT REACH THE TOP.": GOTO 300
  205. 5000  POKE 36352,32576 - INT(32576/256) *256: POKE 36353, INT(32576/256): PRINT  CHR$(4);"BLOAD";GQ$(RM);",A32576": CALL 36400
  206. 5001  FOR K = 1 TO 5: IF OB(K) = RM  THEN  POKE 36352,32576 - INT(32576/256) *256: POKE 36353, INT(32576/256): PRINT  CHR$(4);"BLOAD";OB$(K);".SPC,A32576": CALL 36405
  207. 5002  NEXT K: RETURN 
  208. 5005 RB = 0: ON RM GOTO 5010,5020,5030,6000,6000,6000,5070,6000,6000,5100,5110,5120,5130,5140,6000,6000,5170,6000,5190,5200
  209. 5010  IF  LEFT$(GQ$(RM),1) = "M"  THEN  PRINT "THERE IS A STRING HANGING FROM HERE."
  210. 5011  GOTO 6000
  211. 5020  PRINT "THERE IS A RECORD HERE.": GOTO 6000
  212. 5030  IF OB(4) = RM  THEN  PRINT "THERE IS A COMB HERE.": GOTO 6000
  213. 5070  IF OB(2) = RM  THEN  PRINT "THERE IS SOME CHEESE HERE.": GOTO 6000
  214. 5071  GOTO 6000
  215. 5100  PRINT "YOU'RE IN A MOUSE HOLE.  ";: IF F = 0  THEN  PRINT "THERE IS A     FRIENDLY MOUSE HERE.";
  216. 5101  PRINT : GOTO 6000
  217. 5110  PRINT "THERE IS A DOOR IN FRONT OF YOU.": GOTO 6000
  218. 5120  PRINT "THERE IS A TACKLE BOX HERE.": GOTO 6000
  219. 5130  PRINT "YOU'RE INSIDE A TACKLE BOX."
  220. 5131  IF OB(1) = RM  THEN  PRINT "THERE IS A FISHING HOOK HERE."
  221. 5132  GOTO 6000
  222. 5140  PRINT "THERE IS A CAT ";: IF OB(3) = RM  THEN  PRINT "WITH SOME STRING ";
  223. 5149  PRINT "HERE.": GOTO 6000
  224. 5170  PRINT "THERE IS A FLASK OF ANTIDOTE HERE.": GOTO 6000
  225. 5190  PRINT "YOU'RE ON TOP OF THE FLASK.": GOTO 6000
  226. 5200  PRINT "YOU'RE SWIMMING INSIDE THE FLASK.": GOTO 6000
  227. 5500  PRINT  CHR$(4);"BLOAD";OB$(K);".SPC,A24576": CALL 36405: RETURN 
  228. 6000  IF F = 1  THEN  PRINT "THERE IS A MOUSE FOLLOWING YOU."
  229. 6001  RETURN 
  230. 7500  PRINT "YOU ARE CARRYING:"
  231. 7505 I$ = "NOTHING": FOR K = 1 TO 5: IF OB(K) =  -1  THEN  PRINT OB$(K):I$ = ""
  232. 7510  NEXT K: IF  LEN(I$) >1  THEN  PRINT I$
  233. 7520  GOTO 300
  234. 8000  PRINT "PRESS <RETURN> FOR MORE . . .";
  235. 8010  GET B$: IF B$ < > CHR$(13)  THEN  PRINT  CHR$(7);: GOTO 8010
  236. 8020  PRINT : RETURN 
  237. 9000 GQ$(RM) = "AMOEBA.SPC": GOSUB 5000
  238. 9010  PRINT "YOUR TIME HAS RUN OUT.  NOT ONLY DID YOUMISS THE SCIENCE FAIR, BUT YOU CONTINUEDTO SHRINK UNTIL YOU ARE EATEN BY A GIANTAMOEBA.  GAME OVER.";: GET B$: GET B$: TEXT : HOME : GOTO 10030
  239. 10000 GQ$(20) = "FOOT.SPC": GOSUB 5000
  240. 10010  PRINT "CONGRATULATIONS, YOU GROW BACK TO NORMALHEIGHT IN TIME FOR THE SCIENCE FAIR.    UNFORTUNATELY, YOU FINISH SECOND PLACE  TO YOUR CLASSMATE EUGENE WHO BUILT A";: GET B$
  241. 10020  PRINT : PRINT "THERMAL NUCLEAR WARHEAD.";: GET B$: PRINT :GQ$(20) = "CAT.SPC": GOSUB 5000
  242. 10030  FOR K = 1 TO 5: PRINT : NEXT : PRINT  TAB( 16);"THE END";: GET B$: TEXT : HOME : PRINT  CHR$(4)"RUN KICK.IT.OFF"